#1=-4
#2=ABS[#1-FIX[#1/2]*2]

Если нужно знак числа (+-) превратить в 1 или -1. Например для определения направления отвода.
Если X отрицательное число, получаем -1. Если положительное, получаем 1. Если X=0, тогда ошибка.
Аналог функции sgn(x)

ABS[X]/X
Инверсия
0-ABS[X]/X

Чтобы при 0 не выдавало ошибку, надо писать
ABS[X+0.1]/[X+0.1] - это только для целых чисел. Если X=0, то результат 1
ABS[X-0.1]/[X-0.1] - это только для целых чисел. Если X=0, то результат -1

#1= 16 //Расстояние отвода, только положительное число
#2=30 //Расстояние и направление зондирования, положительное или отрицательное число
#1=#1*[ABS[#2]/#2]
---------------
Если нужно знак числа (+-) превратить в 1 или 0. 

[ABS[X]+X]/2/X - Если X отрицательное число, получаем 0, если положительное получаем 1. Если X=0, тогда ошибка.
[ABS[X+0.1]+X+0.1]/2/[X+0.1] - это вариант для X=0. Если X=0, то результат 1
[ABS[X-0.1]+X-0.1]/2/[X-0.1] - это вариант для X=0. Если X=0, то результат 0

0-[ABS[X]-X]/2/X - Если X отрицательное число, получаем 1, если положительное получаем 0. Если X=0, тогда ошибка.
0-[ABS[X-0.1]-X+0.1]/2/[X-0.1] - это вариант для X=0. Если X=0, то результат 1
0-[ABS[X+0.1]-X-0.1]/2/[X+0.1] - это вариант для X=0. Если X=0, то результат 0
--------------------------
Формулы проверки равенства 2х значений
Когда X=Y, то результат выражение равен 1. Во всех остальных случаях, результат равен 0.
X и Y могут быть только положительными числами, или нулём.
FIX(COS(X-Y)) - подходят не любые числа. Например cos(102−3) даст минус. Тогда надо писать FIX(ABS(COS(X-Y))).
1-FUP(ABS(SIN(X-Y)))
1-FUP(ABS(0,1*(X-Y)))
((1-ABS(X-Y))+ABS(1-ABS(X-Y)))/2
Если нужно наоборот. Когда X=Y, то результат выражение равен 0. Во всех остальных случаях, результат равен 1.
1-FIX(COS(X-Y)) - подходят не любые числа. Например cos(102−3) даст минус. Тогда надо писать 1-FIX(ABS(COS(X-Y))).
FUP(ABS(SIN(X-Y)))
FUP(ABS(0,1*(X-Y)))
1-(((1-ABS(X-Y))+ABS(1-ABS(X-Y)))/2)
Перевод номера оси одной строкой, через перевод номера оси в 1 или 0 
------------------------------------------
Частный случай того же самого, когда X и Y имеют формат 0-1
ABS[X+Y-1] - Когда X=Y, то результат выражение равен 1. Во всех остальных случаях, результат равен 0.
Нужно для сопоставления текущего уровня порта с настроеным уровнем срабатывания.
---------------------------------
Обычный перевод номера оси
#8=1 //Номер оси
#9=15 //Расстояние и направление, положительное или отрицательное число

#3=0
#4=0
#5=0
#[2+#8]=#9 ;;Определяем расстояние 
G91G0X#3Y#4Z#5
------------------------------------
При формате 1-0. Если X=1 и Y=1, тогда результат 1. Иначе, результат 0.
FIX[[X+Y]/2]
------------------------------------
X Y - целые числа. Z - формат 1-0.
Если X=Y, результат = Z. Иначе, результат = инверсия Z.
ABS[1-FIX[COS[X-Y]]-Z]
Если X=Y, результат = инверсия Z. Иначе, результат = Z.
ABS[FIX[COS[X-Y]]-Z]
------------------------------------
Вычисление мин и макс значения

Если Y<X, то значение выражения = Y, иначе значение выражения = X.
X-(((X-Y)+ABS(X-Y))/2) - длинный вариант
(X+Y-ABS(X-Y))/2 - упрощённый вариант
Если Y>X, то значение выражения = Y, иначе значение выражения = X.
X-(((Y-X)+ABS(Y-X))/2) - длинный вариант
(X+Y+ABS(X-Y))/2 - упрощённый вариант
----------------------------------
Перевод формата 0-1 в -1 - 1
X*2-1 - если X=0, тогда результат -1; если X=1, тогда результат 1
1-X*2 - если X=0, тогда результат 1; если X=1, тогда результат -1
--------------------------
Перевод формата -1 - 1 в 0-1
[1-X]/2 - если X=1, тогда результат 0; если X=-1, тогда результат 1
[1+X]/2 - если X=1, тогда результат 1; если X=-1, тогда результат 0
--------------------------
Перевод формата 0 - положительное число в 0 - 1
FUP[X/[X+0.1]]
-----------------
Перевод формата 0 - положительное число в 1 - 0
1-FUP[X/[X+0.1]]
-----------------
Инверсия + и -
-X - Просто пишем перед переменной минус.
--------------------------
Инверсия -1 и 1
0-X
-------------------------
Инверсия 1 и 0. То есть, если X может быть только 1 или 0, инвертировать значение.
1-X
------------------------
Инверсия 1 и 2. То есть, если X может быть только 1 или 2, инвертировать значение.
3-X
----------------------------
Инверсия 2 и 3. То есть, если X может быть только 2 или 3, инвертировать значение.
5-X
-------------------------------
Инверсия 4 и 5. То есть, если X может быть только 4 или 5, инвертировать значение.
9-X
-----------------------------------
Определение чётного и нечётного числа

Если нужно получить 1 или 0
Для положительных и отрицательных чисел
ABS(X-FIX(X/2)*2) - если #1 нечётное, получаем 1,  и 0 если чётное.
1-ABS(X-FIX(X/2)*2) - если #1 нечётное, получаем 0,  и 1 если чётное.

Если нужно получить 1 или -1
Для положительных и отрицательных чисел
ABS(X-FIX(X/2)*2)*2-1 - если X нечётное, получаем 1,  и -1 если чётное
1-ABS(X-FIX(X/2)*2)*2 - если X нечётное, получаем -1,  и 1 если чётное

----------------
Экономия переменных в цикле
#1080 - Floating Probe signal effective level
#[1519+#1078]-Переменная состояния порта. 0 если замкнут
#489 = 0 
WHILE #489<70 DO 41
#489 = #489+ABS[#[1519+#1078]+#1080-1]+10
END41
IF #489-70>=#486 GOTO308 ;;Если вычислено надёжное касание - переходим к отводу

Используется формула проверки равенства
ABS[#1+#2-1]
Ещё можно применять
FIX(COS(#1-#2))
--------------------
#24 - накопительная переменная проверки контакта
IF ROUND[#24/10+0.1]==#[1047+#1*3] GOTO1 
#1505=-5000(Обнаружен плохой контакт)
N1 
---------------------
Длина отрезка по двум точкам
L= SQRT[[х2—х1]*[х2—х1]+[y2—y1]*[y2—y1]]
---------------------------
Перемещение осей по расстоянию и углу
#1 - расстояние
#2 - угол
G91G0X#1*COS[#2] Y#1*COS[90-#2]
----------------------------
Вычисление ATAN (угла между точкой и цетром) в любом месте без обнуления осей в центре

#11=125 ;;Позиция точки по X
#12=-63 ;;Позиция точки по Y
#21=90 ;; Позиция центра по X
#22=-120 ;; Позиция центра по Y
ATAN[#12-#22,#11-#21]
Вычисление в тек. рабочих координатах
ATAN[#791-#22,#790-#21]
----------------------------
Перевод формата ATAN -180 - 180 в 0 - 360.
#36=ATAN[#791,#790]
IF #36 >=0 GOTO1
#36=#36+360
N1 

#36=ATAN[#791,#790]+360*[0-[ABS[ATAN[#791,#790]]-ATAN[#791,#790]]/2/ATAN[#791,#790]]
Если найденый угол=0, то будет ошибка. Но вероятность этого, крайне мала
